We tried to use sc2marker to find the minimal protein markers to differentiate a certain cell type from the rest of the clusters.
There are 24 cell types in total in this dataset. Each cell type was provided a list of markers and their corresponding ranking scores. TP: true positives, FP: false positives, TN: true negatives, FN: false negatives. The direction indicates whether the marker is highly (+) / lowly(-) expressed in the specific cell type compared to the rest groups. The x-axis in the ridge plot is in log2(x+1) scale. The red dashed line indicatesd the ranking score for each gene.
celltype <- "non-classical monocyte"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "classical monocyte"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "CD16-positive, CD56-dim natural killer cell, human"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "natural killer cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "plasmacytoid dendritic cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "conventional dendritic cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "platelet"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "CD16-negative, CD56-bright natural killer cell, human"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "granulocyte"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "intermediate monocyte"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "naive B cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "memory B cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "gamma-delta T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "plasmablast"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "regulatory T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "CD4-positive, alpha-beta memory T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "CD8-positive, alpha-beta memory T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "naive thymus-derived CD8-positive, alpha-beta T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "naive thymus-derived CD4-positive, alpha-beta T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "mucosal invariant T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "memory T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "double-positive, alpha-beta thymocyte"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "double negative thymocyte"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")
celltype <- "T cell"
markers <- markers.all[[celltype]]; markers$`FP details`=NA
get_antibody(markers, org = "human")
plot_ridge2(scrna, id = celltype, genes = markers[1:6,]$gene,
aggr.other = FALSE, ncol = 3, assay = "ADT", slot = "data")